home *** CD-ROM | disk | FTP | other *** search
/ Item MB Quick & Easy 2.0 / Item MB Quick & Easy 2.0.iso / mbfacad / mb37393.lsp < prev    next >
Text File  |  1998-03-15  |  3KB  |  109 lines
  1. ;=============373.93 GELENK 40
  2.  
  3.  
  4. (defun C:37393AU (/ P1 W)
  5.    (EAITDBL "0037393")
  6.    (princ (strcat "\n\n" EAITbez1))
  7.    (EAITvari)
  8.    (EAITvars)
  9.    (while (= EAITp2 nil)
  10.    (setvar "ORTHOMODE" 0)
  11.    (setvar "OSMODE" 0)
  12.    (if (/= EAITp1 nil)
  13.        (progn  
  14.       (setq EAITp2 EAITp1)
  15.          (EAITmsg "mb_mld12" "\n" "009" nil)    ;Profil-Außenlinie für 2.Gelenk waehlen :
  16.       (setq NL (entsel " "))
  17.     )  
  18.        (progn
  19.       (EAITmsg "mb_mld12" "\n" "008" nil)    ;Profil-Außenlinie für 1.Gelenk waehlen :
  20.       (setq NL (entsel " "))
  21.     )
  22.    )      
  23.    (setq P2 (cadr NL)
  24.         P3 (osnap P2 EAITofend)     ;P3 (osnap P2 "END")
  25.         P4 (osnap P2 EAITofmit)     ;P4 (osnap P2 "MIT")
  26.          W  (angle P3 P4)
  27.         WG (EAITbig W) 
  28.    )    
  29.  
  30.    (EAITbpt nil nil nil)
  31.    (setq P1 (getpoint))
  32.    (if (= P1 nil)(setq P1 (EAITrpt)))
  33.  
  34.    (setvar "OSMODE" 0)
  35.    (command EAITbks EAITbur P1
  36.             EAITbks EAITbz WG
  37.    )
  38.    (setvar "ORTHOMODE" 1)
  39.    (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel: <0>
  40.    (command EAITege (strcat EAITpfn "37393s4") '(0 0) "" "" EAITofkei pause)
  41.    (command EAITbks EAITbvo)             
  42.    (command EAITbks EAITbvo)             
  43.  
  44.    (setq EAITp1 (polar (EAITbp)(+ (EAITbw) (/ Pi 2)) 30) )
  45.  
  46.    (setvar "ORTHOMODE" 0)
  47.  );while 
  48.    (command EAITege (strcat EAITpfn "37393s3") EAITp1 "" "" EAITp2
  49.             EAITege (strcat EAITpfn "37393s3") EAITp2 "" "" EAITp1 )
  50.  
  51.    (command EAITege (strcat EAITpfn "EAITinfo") (polar EAITp2 0 15) "" "" ""
  52.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  53.             EAITege (strcat EAITpfn "EAITinfo") (polar EAITp1 0 15) "" "" ""
  54.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  55.    )
  56.  
  57.    (setq EAITp1 nil EAITp2 nil)
  58.    (EAITvarz2)
  59.    (princ)
  60. );defun 37393AU
  61.  
  62.  
  63. (defun C:37393HV (/ P1 P2 P3 P4 W WG PZ)
  64.    (EAITDBL "0037393")
  65.    (princ (strcat "\n\n" EAITbez1))
  66.    (EAITvari)
  67.    (EAITvars)
  68.    (setvar "ORTHOMODE" 0)
  69.    (setvar "OSMODE" 0)
  70.    (EAITmsg "mb_mld12" "\n" "010" nil)        ;Profil-Außenlinie waehlen : 
  71.    (setq NL (entsel " ")
  72.          P2 (cadr NL)
  73.          P3 (osnap P2 EAITofend)     ;P3 (osnap P2 "END")
  74.          P4 (osnap P2 EAITofmit)     ;P4 (osnap P2 "MIT")
  75.          W  (angle P3 P4)
  76.          WG (EAITbig W) 
  77.    )    
  78.  
  79.    (EAITbpt nil nil nil)
  80.    (setq P1 (getpoint))
  81.    (if (= P1 nil)(setq P1 (EAITrpt)))
  82.  
  83.    (setvar "OSMODE" 0)
  84.    (command EAITbks EAITbur P1
  85.             EAITbks EAITbz WG
  86.    )
  87.    (setvar "ORTHOMODE" 1)
  88.    (EAITmsg "mb_mld12" "\n" "011" nil)    ;Drehwinkel 1. Gelenkhaelfte : <0>
  89.    (command EAITege (strcat EAITpfn "37393s4") '(0 0) "" "" EAITofkei pause)
  90.    (setq Wi (EAITgib (+ 120 (EAITbig (EAITbw)))))
  91.    (command EAITbks EAITbvo)             
  92.    (command EAITbks EAITbvo)             
  93.  
  94.              
  95.    (setq PZ (polar P1 (+ (EAITbw) (/ Pi 2)) 30) )
  96.    (setvar "ORTHOMODE" 0)
  97.    (EAITmsg "mb_mld12" "\n" "012" nil)    ;Drehwinkel 2. Gelenkhaelfte : <0>
  98.    (command EAITege (strcat EAITpfn "37393s3") PZ "" "" EAITofkei pause)
  99.  
  100.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 Wi 25) "" "" ""
  101.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  102.    )
  103.  
  104.    (EAITvarz2)
  105.    (princ)
  106.    
  107. );defun HV
  108. (princ)
  109.